home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
pvap322a
/
pvapdset.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
10KB
|
359 lines
/************************************************************************
* ダウンロード予約 *
************************************************************************/
/* ダウンロード予約メニュー */
%DOWNSET{
loop({
SNDMSG({erande_f.snd});
footnote({ダウンロードする場所を選択して下さい});
select({ダウンロードする場所を選択して下さい},
99999,{im({No})},
{ SIG },{DOWNSIG;im({Yes})},
{ BBS },{DOWNBBS;im({Yes})},
{ CUG },{DOWNCUG;im({Yes})},
{ プロフィール },{PROFSET;im({Yes})},
{ 終 了 },{im({No})});
});
};
%DOWNSIG{
loop({
SNDMSG({erande_f.snd});
footnote({ダウンロードする場所を選択して下さい});
select({ダウンロードする場所を選択して下さい},99999,{im({No})},
{ フォーラム検索 },{FORUMSET({フォーラム});im({Yes})},
{ フォーラム指定発言 },
{ForumSet({フォーラム指定発言});im({Yes})},
{ 会議室検索 },{FORUMSET({SIG内会議室});im({Yes})},
{ 会議室指定発言 },
{ForumSet({SIG内会議室指定発言});im({Yes})},
{ OSL },{OSLLIBSET({SIG内OSL});im({Yes})},
{ ライブラリ },
{OSLLIBSET({SIG内ライブラリ});im({Yes})},
{ 終 了 },{im({No})});
});
};
%DOWNBBS{
loop({
SNDMSG({erande_f.snd});
footnote({ダウンロードの種類を選択して下さい});
select({ダウンロードの種類を選択して下さい},99999,{im({No})},
{ BBS検索 },{FORUMSET({BBS});im({Yes})},
{ BBS指定発言 },{ForumSet({BBS指定発言});im({Yes})},
{ 終 了 },{im({No})});
});
};
%DOWNCUG{
loop({
SNDMSG({erande_f.snd});
footnote({ダウンロードする場所を選択して下さい});
select({ダウンロードする場所を選択して下さい},99999,{im({No})},
{ 掲示板検索 },{CUGSET({CUG内掲示板});im({Yes})},
{ 掲示板指定発言 },
{CugSet({CUG内掲示板指定発言});im({Yes})},
{ 会議室検索 },{CUGSET({CUG内会議室});im({Yes})},
{ 会議室指定発言 },
{CugSet({CUG内会議室指定発言});im({Yes})},
{ OSL },{CUGOSLSET({CUG内OSL});im({Yes})},
{ ライブラリ },
{CUGOSLSET({CUG内ライブラリ});im({Yes})},
{ 終 了 },{im({No})});
});
};
/* ID検索処理 */
%IDsearch{
%memono1 @mlast+1;
%pickid{
%m @nolmemo(memono1);
%n @xlinenum;
%l1 @case (n<1,
{Yes}, {im(@memo(memono1,1,1))},
{No}, {case (n>m,
{Yes},{im(@memo(memono1,m,1))},
{No},{im(@memo(memono1,n,1))})});
im(@head(l1,{ }));
};
%idsearch{
case (DOWNID,{},{DOWNID:=DOWNID2},,{DOWNID:=DOWNID|{,}|DOWNID2});
};
case (memono1>9,
{Yes},{SNDMSG({kaknin_f.snd});
select({メモ番号が一杯のためメモを開けません},
99999,,)},
{No},
{CloseAllMemo;
madd(memono1,{\n});
mclear(memono1);
case (@filechk(DIR1|{\PVAPLIST.DAT}),
{Yes},{mread(DIR1|{\PVAPLIST.DAT},memono1)});
mopen(memono1,320,21,639,459,{r});
footnote({選択中止},{b});
loop({
waitx();
case (@xtype,
101,{%DOWNID2 @pickid;idsearch;im({No})},
201,{%DOWNID2 @pickid;idsearch;im({No})},
102,{im({No})}, 202,{im({No})},
memono1,{%DOWNID2 @pickid;idsearch;im({No})},
,{im({Yes})});
});
case (@mcheck==memono1,
{Yes}, {mclose(3)},
{No}, {CloseAllMemo;mopen(memono1);mclose(3)})});
};
/* プロフィールのダウンロード予約 */
%PROFSET{
var DOWNID[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({プロフィールダウンロード予約});
%a @plane( {cプロフィールダウンロード予約\n}|
{tダウンロードID /\n}|
{s / ID一覧 \n}|
{c 複数のIDのプロフィールをダウンする場合は}|
{「,」で区切って下さい\n}|
{s/ 登録 / 取消 \n},DOWNID);
DOWNID:=@head(@getline(a,1,1),{\n});
%sel @head(@getline(a,2,1),{\n});
ok:= @head(@getline(a,3,1),{\n});
case(sel==1,{Yes},{IDsearch;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
{プロフィール/}|
DOWNID|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* フォーラム・BBS検索予約 */
%FORUMSET{[WHERE]
var JUMP[8];
var FORUM[2];
var KEYWORD[8];
var DOWNID[50];
var KEYDAY[17];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{検索予約});
%a @plane( {c}|WHERE|{検索予約\n}|
{tジャンプコード /12345678\n}|
{tボード番号 /12\n}|
{t検索文字列 /12345678\n}|
{t検索ID /\n}|
{s / ID一覧 \n}|
{c 「,」で区切って複数指定します }|
{最大10IDまでです\n}|
{t検索日付 /12345678901234567\n}|
{c PC-VANのマニュアルの通りに指定して下さい\n}|
{s/ 登録 / 取消 \n},JUMP,FORUM,KEYWORD,DOWNID,KEYDAY);
JUMP:= @head(@getline(a,1,1),{\n});
FORUM:= @head(@getline(a,2,1),{\n});
KEYWORD:= @head(@getline(a,3,1),{\n});
DOWNID:= @head(@getline(a,4,1),{\n});
%sel @head(@getline(a,5,1),{\n});
KEYDAY:= @head(@getline(a,6,1),{\n});
ok:= @head(@getline(a,7,1),{\n});
case(sel==1,{Yes},{IDsearch;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
WHERE|{/|}|
JUMP|{|}|FORUM|{|}|KEYWORD|{|}|
DOWNID|{|}|KEYDAY|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* SIGからのダウンロード予約 */
%OSLLIBSET{[WHERE]
var JUMP[8];
var OSLNUM[2];
var DOWNNUM[3];
var ok[2];
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{ダウンロード予約});
%a @plane( {c}|WHERE|{ダウンロード予約\n}|
{tジャンプコード /12345678\n}|
{tOSL・ライブラリ番号 /12\n}|
{tファイル・情報 番号 /123\n}|
{s/ 登録 / 取消 \n});
JUMP:= @head(@getline(a,1,1),{\n});
OSLNUM:= @head(@getline(a,2,1),{\n});
DOWNNUM:= @head(@getline(a,3,1),{\n});
ok:= @head(@getline(a,4,1),{\n});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
WHERE|{/}|
JUMP|{/}|
OSLNUM|{/}|
DOWNNUM|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* フォーラム・BBS指定発言ダウンロード予約 */
%ForumSet{[WHERE]
var JUMP[8];
var FORUM[2];
var DOWNMES[100];
var ok[2];
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{ダウンロード予約});
%a @plane( {c}|WHERE|{ダウンロード予約\n}|
{tジャンプコード /12345678\n}|
{tボード番号 /12\n}|
{t 発言 番号 /\n}|
{s/ 登録 / 取消 \n});
JUMP:= @head(@getline(a,1,1),{\n});
FORUM:= @head(@getline(a,2,1),{\n});
DOWNMES:= @head(@getline(a,3,1),{\n});
ok:= @head(@getline(a,4,1),{\n});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
WHERE|{/}|
JUMP|{/}|FORUM|{/}|DOWNMES|{/\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* CUG検索予約 */
%CUGSET{[WHERE]
var CUG[8];
var PASS[8];
var MAINNUM[2];
var KEIJI[2];
var KEYWORD[8];
var DOWNID[50];
var KEYDAY[17];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{検索予約});
%a @plane( {c}|WHERE|{検索予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{s / 検索 \n}|
{tメインメニュー番号 /12\n}|
{tボード 番号 /12\n}|
{t検索文字 /12345678\n}|
{t検索ID /\n}|
{s / ID一覧 \n}|
{c 「,」で区切って複数指定します }|
{最大10IDまでです\n}|
{t検索日付 /12345678901234567\n}|
{c PC-VANのマニュアルの通りに指定して下さい\n}|
{s/ 登録 / 取消 \n},
CUG,PASS,MAINNUM,KEIJI,KEYWORD,DOWNID,KEYDAY);
CUG:= @head(@getline(a,1,1),{\n});
PASS:= @head(@getline(a,2,1),{\n});
%sel @head(@getline(a,3,1),{\n});
MAINNUM:= @head(@getline(a,4,1),{\n});
KEIJI:= @head(@getline(a,5,1),{\n});
KEYWORD:= @head(@getline(a,6,1),{\n});
DOWNID:= @head(@getline(a,7,1),{\n});
%sel2 @head(@getline(a,8,1),{\n});
KEYDAY:= @head(@getline(a,9,1),{\n});
ok:= @head(@getline(a,10,1),{\n});
case(sel==1,{Yes},{case(CUG={},
{No}, {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
im({Yes})},,{im({Yes})})});
case(sel2==1,{Yes},{IDsearch;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
WHERE|{/|}|
CUG|{|}|PASS|{|}|MAINNUM|{|}|KEIJI|{|}|KEYWORD|{|}|
DOWNID|{|}|KEYDAY|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* CUGからのダウンロード予約 */
%CUGOSLSET{[WHERE]
var CUG[8];
var PASS[8];
var MAINNUM[2];
var OSLNUM[2];
var DOWNNUM[3];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{ダウンロード予約});
%a @plane( {c}|WHERE|{ダウンロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{s / 検索 \n}|
{tメインメニュー 番号 /12\n}|
{tOSL・ライブラリ番号 /12\n}|
{tファイル・情報 番号 /123\n}|
{s/ 登録 / 取消 \n},
CUG,PASS,MAINNUM,OSLNUM,DOWNNUM);
CUG:= @head(@getline(a,1,1),{\n});
PASS:= @head(@getline(a,2,1),{\n});
%sel @head(@getline(a,3,1),{\n});
MAINNUM:= @head(@getline(a,4,1),{\n});
OSLNUM:= @head(@getline(a,5,1),{\n});
DOWNNUM:= @head(@getline(a,6,1),{\n});
ok:= @head(@getline(a,7,1),{\n});
case(sel==1,{Yes},{case(CUG={},
{No}, {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
im({Yes})},,{im({Yes})})});
});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
WHERE|{/}|
CUG|{/}|PASS|{/}|MAINNUM|{/}|
OSLNUM|{/}|
DOWNNUM|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* CUG指定発言ダウンロード予約 */
%CugSet{[WHERE]
var CUG[8];
var PASS[8];
var MAINNUM[2];
var NUMBER[2];
var DOWNMES[100];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{ダウンロード予約});
%a @plane( {c}|WHERE|{ダウンロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{s / 検索 \n}|
{tメインメニュー番号 /12\n}|
{tボード 番号 /12\n}|
{t 発言 番号 /\n}|
{s/ 登録 / 取消 \n},
CUG,PASS,MAINNUM,NUMBER,DOWNMES);
CUG:= @head(@getline(a,1,1),{\n});
PASS:= @head(@getline(a,2,1),{\n});
%sel @head(@getline(a,3,1),{\n});
MAINNUM:= @head(@getline(a,4,1),{\n});
NUMBER:= @head(@getline(a,5,1),{\n});
DOWNMES:= @head(@getline(a,6,1),{\n});
ok:= @head(@getline(a,7,1),{\n});
case(sel==1,{Yes},{case(CUG={},
{No}, {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
im({Yes})},,{im({Yes})})});
});
%WRITE{
write (TEMPPATH|{\PVAPDOWN.DAT},
WHERE|{/}|
CUG|{/}|PASS|{/}|MAINNUM|{/}|NUMBER|{/}|DOWNMES|{/\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* 実行 */
DOWNSET;